home *** CD-ROM | disk | FTP | other *** search
/ Microsoft Interactive CD Sampler / Microsoft Interactive CD Sampler.iso / DEMOS / C_Automp / AUTOTP / TRIPPLAN.DIR / Scripts_1.ls < prev    next >
Encoding:
Text File  |  1996-07-25  |  1.0 KB  |  49 lines
  1. on startMovie
  2.   global barChild, sonSoundCast, momSoundCast, loopChild, transNum, theSoundPath
  3.   unLoadCast()
  4.   initIMD()
  5.   setPuppet(44, 46, 2)
  6.   set barChild to new(script "updateBar")
  7.   set loopChild to new(script "setLoop")
  8.   set the floatPrecision to 2
  9.   setCur(47, 48, "hand", 1)
  10.   set transNum to 0
  11.   if the machineType = 256 then
  12.     set theSoundPath to the pathName & "Sounds\"
  13.   else
  14.     set theSoundPath to the pathName & "Sounds:"
  15.   end if
  16. end
  17.  
  18. on idle
  19.   global barChild, loopChild
  20.   if objectp(barChild) then
  21.     updateBar(barChild)
  22.   end if
  23.   if objectp(loopChild) then
  24.     setLoop(loopChild)
  25.   end if
  26. end
  27.  
  28. on startSound sound, who
  29.   global sonSoundCast, momSoundCast
  30.   case who of
  31.     #s:
  32.       set soundCast to sonSoundCast
  33.     #m:
  34.       set soundCast to momSoundCast
  35.   end case
  36.   puppetSound(1, member sound of castLib soundCast)
  37. end
  38.  
  39. on setTrans theTrans, duration
  40.   global transNum
  41.   set transNum to theTrans
  42.   puppetTransition(theTrans, duration)
  43. end
  44.  
  45. on setBar num
  46.   global barChild
  47.   set the progNum of barChild to num
  48. end
  49.